5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
25 POKE53272,31
30 AD=49152
32 SYSAD:SYSAD+12
35 P1=4*ATN(1):R1=180/P1
38 TQ=TI
40 C=2*P1:A1=.0000005
42 BX$="[153][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180]"
44 PRINT"[147][153][219][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][220]":SYSAD+9,4
46 PRINTBX$""TAB(38)BX$
48 PRINT"[153][255][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][168]"
50 PRINT""TAB(1)"[129]    [194][201][206][193][210][217] [211][212][193][210] [207][210][194][201][212][193][204] [195][193][204][195][213][204][193][212][207][210]   "
55 PRINTTAB(4)"[156][211]EMIMAJOR [193]XIS [158][219]S: ";:L9%=6:GOSUB900:A=Q9
60 PRINTTAB(4)"[156][197]CCENTRICITY [158](0-.99) [219]S: ";:L9%=6:GOSUB900:E0=Q9
65 IFINT(E0)=0THEN80
70 IFE0=>1THENPRINT"[145][145]":GOTO60
75 :
80 PRINTTAB(3)"[156][197]POCH OF [208]ERIASTRON [158][219]S: ";:L9%=6:GOSUB900:T=Q9
85 PRINTTAB(3)"[156][207]RBITAL [208]ERIOD [158]([217]EARS): ";:L9%=3:GOSUB900:P=Q9
90 PRINTTAB(4)"[156][201]NCLINATION [158][219]S: ";:L9%=6:GOSUB900:I=Q9
95 PRINTTAB(3)"[156][193]RG. OF [208]ERIASTRON [158][219]: ";:L9%=6:GOSUB900:W=Q9
100 PRINTTAB(3)"[156][208].[193]. OF [193]SC [206]ODE [158][219]: ";:L9%=6:GOSUB900:L=Q9
110 I=I/R1:W=W/R1:L=L/R1
115 :
120 PRINTTAB(3)"[156][196]ATE OF [207]BSERVATION [158]([217]RS): ";:L9%=6:GOSUB900:D=Q9
125 T1=D-T:M=C*T1/P
130 E=M+E0*SIN(M)+E0*E0*SIN(2*M)/2
135 N=E-E0*SIN(E):G=M-N
140 F=G/(1-E0*COS(E)):E=E+F
145 IFABS(G)>A1THEN135
150 U=(1+E0)/(1-E0):H=COS(E/2)
155 IFH=0THENV=P1:GOTO165
160 V=2*ATN(SQR(U)*SIN(E/2)/H)
165 K=V+W:Y=SIN(K)*COS(I)
170 X=COS(K):Q=ATN(Y/X)
175 IFX<0THENQ=Q+P1
180 IFX<0THEN190
185 IFY<0THENQ=Q+C
190 P2=Q+L:IFP2>CTHENP2=P2-C
195 R=A-A*E0*COS(E)
200 S=R*X/COS(Q)
205 P3=INT(P2*R1*10+.5)/10
210 S3=INT(S*100+.5)/100
212 PRINTTAB(1)"[153][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":SYSAD+9,6
214 PRINTTAB(7)"[158][211][197][195][207][206][196][193][210][217] [211][212][193][210][211]-"
215 PRINTTAB(5)"[154][208]OSITION [193]NGLE. ";P3;"[219]"
220 PRINTTAB(5)"[154][211]EPARATION ";S3;"[154][193]RC [211]ECONDS."
230 GOSUB3000
235 GOTO44
900 Q9$="":POKE198,.
905 GETA$
910 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN905
915 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
920 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO950
925 IFLEN(Q9$)>=L9%THENSYSAD+9,20:GOTO905
930 IF(A$>="0"ANDA$<="9")ORA$="."THEN940
935 GOTO905
940 Q9$=Q9$+A$
945 PRINT""A$;:SYSAD+9,5:GOTO905
950 PRINT" [157][157] [157]";:GOTO905
3000 POKE214,20:PRINT:PRINTTAB(8)"[159](1[159]) [212]RY ANOTHER ONE
3010 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147][144]LOAD"CHR$(34)"B.UNIVERSE IV"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="BINARY STARS":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END